home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
xlib.zip
/
XVOLUME.INT
< prev
next >
Wrap
Text File
|
1992-09-06
|
2KB
|
44 lines
(*****************************************************************************)
(* *)
(* filename : XVOLUME.PAS *)
(* author : Stefan Boether / Compuserve Id : 100023,275 *)
(* FidoNet : 2:242/200 *)
(* FidoNet : 2:243/91 *)
(* Internet: 100023.275@CompuServe.COM *)
(* Maus-Net: Stefan Böther @ HRO *)
(* system : TURBO 6.01 / TPW 1.5 / DOS 3.3 / WIN 3.1 *)
(* changes : *)
(* when what who *)
(*---------------------------------------------------------------------------*)
(*****************************************************************************)
(* Description : Disk Volume handling functions *)
(*****************************************************************************)
{Header-End}
unit XVolume;
{$IfnDef Windows } {$O+} {$Endif}
{$D-}
interface
uses {$IFDEF Windows}
(* Z:OWL\ *) WObjects,
WinDos;
{$ELSE}
(* Y:TVISION\ *) Objects,
Dos;
{$ENDIF}
type { The object for volume/label access }
PVolumeLabel = ^TVolumeLabel;
TVolumeLabel = object( TObject )
Drv : Char;
constructor Init ( ADrv:Char );
procedure Put ( Labl:PathStr ); virtual;
procedure Delete ( Labl:PathStr ); virtual;
procedure Rename ( Labl:PathStr ); virtual;
function Get: PathStr; virtual;
end;